home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / ab20 / ab20_archive / utilities / editors / emacs-18.58.lha / emacs / lisp / amiga-init.el < prev    next >
Lisp/Scheme  |  1992-02-26  |  2KB  |  76 lines
  1. (load "amiga-mouse")
  2. (load "amiga-menu")
  3. (global-set-key "\C-\\A" 'previous-line)
  4. (global-set-key "\C-\\B" 'next-line)
  5. (global-set-key "\C-\\D" 'backward-char)
  6. (global-set-key "\C-\\C" 'forward-char)
  7. (global-set-key "\C-\\?~" 'info)
  8. (global-set-key "\C-\\T" 'scroll-down)
  9. (global-set-key "\C-\\S" 'scroll-up)
  10. (global-set-key "\C-\\ @" 'forward-word)
  11. (global-set-key "\C-\\ A" 'backward-word)
  12. (global-set-key "\C-\\\M-A" 'beginning-of-buffer)
  13. (global-set-key "\C-\\\M-B" 'end-of-buffer)
  14. (global-set-key "\C-\\\M-D" 'beginning-of-line)
  15. (global-set-key "\C-\\\M-C" 'end-of-line)
  16. (global-set-key "\C-\\\M- \M-@" 'forward-sexp)
  17. (global-set-key "\C-\\\M- \M-A" 'backward-sexp)
  18.  
  19. (defun scroll-down-1 ()
  20.   "Move up one line on screen"
  21.   (interactive)
  22.   (scroll-down 1))
  23.  
  24. (defun scroll-up-1 ()
  25.   "Move down one line on screen"
  26.   (interactive)
  27.   (scroll-up 1))
  28.  
  29. (global-set-key "\C-\\\M-T" 'scroll-down-1)
  30. (global-set-key "\C-\\\M-S" 'scroll-up-1)
  31.  
  32. ;; ARexx stuff
  33.  
  34. (global-set-key "\C-\\X" 'amiga-arexx-process)
  35. (setq amiga-arexx-processing nil)
  36.  
  37. (defun amiga-arexx-process ()
  38.   (interactive)
  39.   (if (not amiga-arexx-processing)
  40.       (progn
  41.     (setq amiga-arexx-processing t)
  42.     (let (arexxcmd)
  43.       (while (setq arexxcmd (amiga-arexx-get-command))
  44.         (let ((rc 0) result)
  45.           (condition-case err
  46.           (let ((expr (car (read-from-string arexxcmd))))
  47.             (setq result (prin1-to-string (eval expr))))
  48.         (error (progn
  49.              (setq rc 20)
  50.              (setq result (prin1-to-string err)))))
  51.           (amiga-arexx-reply rc result))))
  52.     (setq amiga-arexx-processing nil))))
  53.  
  54. (defun amiga-arexx-wait-for-commands ()
  55.   "Waits for all pending ARexx commands to complete.
  56. Also processes any pending ARexx requests during this interval."
  57.   (amiga-arexx-process)
  58.   (while (> (amiga-arexx-pending-commands) 0)
  59.     (amiga-arexx-wait)
  60.     (amiga-arexx-process)))
  61.  
  62. (defun amiga-arexx-do-command (str as-file)
  63.   "Sends ARexx command str (like amiga-arexx-send-command) but waits
  64. for all pending commands to complete (including this one)."
  65.   (interactive "sARexx command: 
  66. P")
  67.   (amiga-arexx-send-command str as-file)
  68.   (amiga-arexx-wait-for-commands))
  69.  
  70. (setq amiga-arexx-initialized t) ;; ARexx commands can now be processed.
  71.  
  72. (setq completion-ignore-case t)
  73. ;; Default is no numbered version on Amiga, because directory searches are too
  74. ;; slow.
  75. (setq version-control 'never) 
  76.